print ('my first R Script')

# load the file raw stats
#ignoring header data
perf_data <- read.table ('./eaa-project-x00076585/raw_stats.dat', TRUE)

plot(100 - perf_data[,'X.idle'], type='b', xlab=' Time in Seconds', ylab='Utilization(Ui)')


U_i <- mean(100 - perf_data[,'X.idle'])

D_i <- U_i/94

